inherited dtmxs_SendMaster: Tdtmxs_SendMaster
  OldCreateOrder = True
  Left = 405
  Top = 332
  Height = 414
  Width = 659
  inherited adsMaster: TADODataSet
    CursorType = ctStatic
    CommandText = 'Select * from V_xs_SendMaster where 0=0'
    object adsMasterBillID: TStringField
      DisplayLabel = #21457#36135#21333'ID'
      FieldName = 'BillID'
    end
    object adsMasterBillNo: TStringField
      DisplayLabel = #21457#36135#21333#21495
      FieldName = 'BillNo'
    end
    object adsMasterBillDate: TDateTimeField
      DisplayLabel = #21457#36135#26085#26399
      FieldName = 'BillDate'
    end
    object adsMasterBillType: TWordField
      DisplayLabel = #21457#36135#31867#22411
      FieldName = 'BillType'
    end
    object adsMasterBillFlow: TWordField
      DisplayLabel = #28304#21333#31867#22411
      FieldName = 'BillFlow'
    end
    object adsMasterPayDate: TDateTimeField
      DisplayLabel = #20184#27454#26085#26399
      FieldName = 'PayDate'
    end
    object adsMasterDeptID: TStringField
      DisplayLabel = #24215#38138'ID'
      FieldName = 'DeptID'
    end
    object adsMasterStockID: TStringField
      DisplayLabel = #20179#24211'ID'
      FieldName = 'StockID'
    end
    object adsMasterStockCode: TStringField
      DisplayLabel = #20179#24211#32534#30721
      FieldName = 'StockCode'
    end
    object adsMasterStockName: TStringField
      DisplayLabel = #21457#36135#20179#24211
      FieldName = 'StockName'
    end
    object adsMasterCustID: TStringField
      DisplayLabel = #23458#25143'ID'
      FieldName = 'CustID'
    end
    object adsMasterCustCode: TStringField
      DisplayLabel = #23458#25143#32534#30721
      FieldName = 'CustCode'
    end
    object adsMasterCustShortName: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'CustShortName'
    end
    object adsMasterSender: TStringField
      DisplayLabel = #21457#36135#20154
      FieldName = 'Sender'
    end
    object adsMasterSenderName: TStringField
      DisplayLabel = #21457#36135#20154#21592
      FieldName = 'SenderName'
    end
    object adsMasterFetchType: TWordField
      DisplayLabel = #20132#36135#26041#24335
      FieldName = 'FetchType'
    end
    object adsMasterFetchAddress: TStringField
      DisplayLabel = #20132#36135#22320#22336
      FieldName = 'FetchAddress'
      Size = 80
    end
    object adsMasterSumMoney: TFloatField
      DisplayLabel = #24635#37329#39069
      FieldName = 'SumMoney'
    end
    object adsMasterHasCheck: TBooleanField
      DisplayLabel = #23457#26680#21542
      FieldName = 'HasCheck'
    end
    object adsMasterChecker: TStringField
      DisplayLabel = #23457#26680#20154
      FieldName = 'Checker'
    end
    object adsMasterCheckTime: TDateTimeField
      DisplayLabel = #23457#26680#26102#38388
      FieldName = 'CheckTime'
    end
    object adsMasterWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsMasterWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsMasterModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsMasterModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsMasterRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 50
    end
  end
  inherited adsMasterEdit: TADODataSet
    CursorType = ctStatic
    CommandText = 'Select * from xs_SendMaster'
    object adsMasterEditBillID: TStringField
      DisplayLabel = #21457#36135#21333'ID'
      FieldName = 'BillID'
    end
    object adsMasterEditBillNo: TStringField
      DisplayLabel = #21457#36135#21333#21495
      FieldName = 'BillNo'
    end
    object adsMasterEditBillDate: TDateTimeField
      DisplayLabel = #21457#36135#26085#26399
      FieldName = 'BillDate'
    end
    object adsMasterEditBillType: TWordField
      DisplayLabel = #21457#36135#31867#22411
      FieldName = 'BillType'
    end
    object adsMasterEditBillFlow: TWordField
      DisplayLabel = #28304#21333#31867#22411
      FieldName = 'BillFlow'
    end
    object adsMasterEditPayDate: TDateTimeField
      DisplayLabel = #20184#27454#26085#26399
      FieldName = 'PayDate'
    end
    object adsMasterEditDeptID: TStringField
      DisplayLabel = #24215#38138'ID'
      FieldName = 'DeptID'
    end
    object adsMasterEditStockID: TStringField
      DisplayLabel = #20179#24211'ID'
      FieldName = 'StockID'
    end
    object adsMasterEditCustID: TStringField
      DisplayLabel = #23458#25143'ID'
      FieldName = 'CustID'
    end
    object adsMasterEditSender: TStringField
      DisplayLabel = #21457#36135#20154
      FieldName = 'Sender'
    end
    object adsMasterEditFetchType: TWordField
      DisplayLabel = #20132#36135#26041#24335
      FieldName = 'FetchType'
    end
    object adsMasterEditFetchAddress: TStringField
      DisplayLabel = #20132#36135#22320#22336
      FieldName = 'FetchAddress'
      Size = 80
    end
    object adsMasterEditSumMoney: TFloatField
      DisplayLabel = #24635#37329#39069
      FieldName = 'SumMoney'
    end
    object adsMasterEditHasCheck: TBooleanField
      DisplayLabel = #23457#26680#21542
      FieldName = 'HasCheck'
    end
    object adsMasterEditChecker: TStringField
      DisplayLabel = #23457#26680#20154
      FieldName = 'Checker'
    end
    object adsMasterEditCheckTime: TDateTimeField
      DisplayLabel = #23457#26680#26102#38388
      FieldName = 'CheckTime'
    end
    object adsMasterEditWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsMasterEditWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsMasterEditModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsMasterEditModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsMasterEditRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 50
    end
    object adsMasterEditres_CustName: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldKind = fkLookup
      FieldName = 'res_CustName'
      LookupDataSet = res_Customer
      LookupKeyFields = 'CustID'
      LookupResultField = 'CustShortName'
      KeyFields = 'CustID'
      Lookup = True
    end
    object adsMasterEditres_SenderName: TStringField
      DisplayLabel = #21457#36135#20154
      FieldKind = fkLookup
      FieldName = 'res_SenderName'
      LookupDataSet = res_Employee
      LookupKeyFields = 'EmpID'
      LookupResultField = 'EmpName'
      KeyFields = 'Sender'
      Lookup = True
    end
    object adsMasterEditres_StockName: TStringField
      DisplayLabel = #21457#36135#20179#24211
      FieldKind = fkLookup
      FieldName = 'res_StockName'
      LookupDataSet = res_Stock
      LookupKeyFields = 'StockID'
      LookupResultField = 'StockName'
      KeyFields = 'StockID'
      Lookup = True
    end
    object adsMasterEditres_Barcode: TBooleanField
      DisplayLabel = #26465#24418#30721#31649#29702
      FieldKind = fkLookup
      FieldName = 'res_Barcode'
      LookupDataSet = res_Stock
      LookupKeyFields = 'StockID'
      LookupResultField = 'HasBarCode'
      KeyFields = 'StockID'
      Lookup = True
    end
  end
  object adsDetail: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = adsDetailBeforePost
    OnNewRecord = adsDetailNewRecord
    CommandText = 'Select * from xs_SendDetail where 0=1'
    EnableBCD = False
    Parameters = <>
    Left = 192
    Top = 40
    object adsDetailID: TStringField
      FieldName = 'ID'
    end
    object adsDetailBillID: TStringField
      DisplayLabel = #20851#32852'ID'
      FieldName = 'BillID'
    end
    object adsDetailOrderNo: TStringField
      DisplayLabel = #35746#21333#32534#21495
      FieldName = 'OrderNo'
    end
    object adsDetailOrderDetailNo: TStringField
      DisplayLabel = #35746#21333#26126#32454#21333#21495
      FieldName = 'OrderDetailNo'
    end
    object adsDetailCustOrderNo: TStringField
      DisplayLabel = #23458#21333#21495
      FieldName = 'CustOrderNo'
    end
    object adsDetailCustSpecs: TStringField
      DisplayLabel = #23458#25143#36135#21495
      FieldName = 'CustSpecs'
    end
    object adsDetailPosNo: TStringField
      DisplayLabel = #20179#20301
      FieldName = 'PosNo'
      Size = 5
    end
    object adsDetailBoxNo: TStringField
      DisplayLabel = #31665#21495
      FieldName = 'BoxNo'
    end
    object adsDetailProductID: TStringField
      DisplayLabel = #20135#21697'ID'
      FieldName = 'ProductID'
    end
    object adsDetailProductCode: TStringField
      DisplayLabel = #20135#21697#32534#30721
      FieldName = 'ProductCode'
    end
    object adsDetailProductName: TStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'ProductName'
      Size = 50
    end
    object adsDetailColorCode: TStringField
      DisplayLabel = #33394#21495
      FieldName = 'ColorCode'
    end
    object adsDetailColorName: TStringField
      DisplayLabel = #39068#33394
      FieldName = 'ColorName'
      Size = 30
    end
    object adsDetailPieceCount: TIntegerField
      DisplayLabel = #21457#36135#25968#37327'|'#20024#25968
      FieldName = 'PieceCount'
      OnChange = adsDetailPieceCountChange
    end
    object adsDetailPieceNumber: TFloatField
      DisplayLabel = #21457#36135#25968#37327'|'#27599#20024#25968#37327
      FieldName = 'PieceNumber'
      OnChange = adsDetailPieceNumberChange
    end
    object adsDetailNumber: TBCDField
      DisplayLabel = #21457#36135#25968#37327'|'#21512#35745#25968#37327
      FieldName = 'Number'
      OnChange = adsDetailNumberChange
      Precision = 18
      Size = 2
    end
    object adsDetailUnitID: TWordField
      DisplayLabel = #21457#36135#25968#37327'|'#21333#20301'ID'
      FieldName = 'UnitID'
    end
    object adsDetailres_UnitName: TStringField
      DisplayLabel = #21457#36135#25968#37327'|'#21333#20301
      FieldKind = fkLookup
      FieldName = 'res_UnitName'
      LookupDataSet = res_Unit
      LookupKeyFields = 'UnitID'
      LookupResultField = 'UnitName'
      KeyFields = 'UnitID'
      Size = 10
      Lookup = True
    end
    object adsDetailPrice: TFloatField
      DisplayLabel = #21333#20215
      FieldName = 'Price'
    end
    object adsDetailMoney: TBCDField
      DisplayLabel = #37329#39069
      FieldName = 'Money'
      Precision = 18
      Size = 2
    end
    object adsDetailSalePrice: TBCDField
      DisplayLabel = #38144#21806#21333#20215
      FieldName = 'SalePrice'
      OnChange = adsDetailSalePriceChange
      Precision = 18
      Size = 3
    end
    object adsDetailSaleMoney: TBCDField
      DisplayLabel = #38144#21806#37329#39069
      FieldName = 'SaleMoney'
      OnChange = adsDetailSaleMoneyChange
      Precision = 18
      Size = 2
    end
    object adsDetailFlowerHeight: TBCDField
      DisplayLabel = #33457#39640
      FieldName = 'FlowerHeight'
      Precision = 18
      Size = 2
    end
    object adsDetailFlowerWidth: TBCDField
      DisplayLabel = #33457#23485
      FieldName = 'FlowerWidth'
      Precision = 18
      Size = 2
    end
    object adsDetailFlowerBreadth: TBCDField
      DisplayLabel = #24133#23485
      FieldName = 'FlowerBreadth'
      Precision = 18
      Size = 2
    end
    object adsDetailFlowerGram: TBCDField
      DisplayLabel = #20811#37325
      FieldName = 'FlowerGram'
      Precision = 18
      Size = 2
    end
    object adsDetailWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsDetailWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsDetailModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsDetailModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsDetailRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 500
    end
  end
  object res_Customer: TADODataSet
    Active = True
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select CustID, CustCode, CustShortName, CustFullName from V_da_C' +
      'ustomer'
    Parameters = <>
    Left = 192
    Top = 104
  end
  object adsSendType: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    CommandText = 'Select * from V_xs_SendType'
    Parameters = <>
    Left = 328
    Top = 104
  end
  object adsUserCompany: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    CommandText = 
      'select b.DeptID, b.DeptCode, b.DeptName from xt_CompanySet a '#13#10'j' +
      'oin da_Department b on a.CompanyID=b.DeptID'#13#10'where a.UserID=(sel' +
      'ect UserID from xt_Users where UserCode=:UserCode)'
    Parameters = <
      item
        Name = 'UserCode'
        Size = -1
        Value = Null
      end>
    Left = 464
    Top = 40
  end
  object res_Employee: TADODataSet
    Active = True
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select EmpID, EmpName from V_da_Employee'
    Parameters = <>
    Left = 200
    Top = 192
  end
  object res_Stock: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select StockID, StockCode, StockName, HasBarCode from V_da_Stock'
    Parameters = <>
    Left = 328
    Top = 192
  end
  object adsBrowseDetail: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select * from xs_SendDetail where 0=1'
    EnableBCD = False
    Parameters = <>
    Left = 328
    Top = 40
    object StringField1: TStringField
      FieldName = 'ID'
    end
    object StringField2: TStringField
      DisplayLabel = #20851#32852'ID'
      FieldName = 'BillID'
    end
    object adsBrowseDetailOrderNo: TStringField
      DisplayLabel = #35746#21333#32534#21495
      FieldName = 'OrderNo'
    end
    object StringField3: TStringField
      DisplayLabel = #35746#21333#26126#32454#21333#21495
      FieldName = 'OrderDetailNo'
    end
    object StringField4: TStringField
      DisplayLabel = #23458#21333#21495
      FieldName = 'CustOrderNo'
    end
    object StringField5: TStringField
      DisplayLabel = #23458#25143#36135#21495
      FieldName = 'CustSpecs'
    end
    object adsBrowseDetailPosNo: TStringField
      DisplayLabel = #20179#20301
      FieldName = 'PosNo'
      Size = 5
    end
    object adsBrowseDetailBoxNo: TStringField
      DisplayLabel = #31665#21495
      FieldName = 'BoxNo'
    end
    object StringField6: TStringField
      DisplayLabel = #20135#21697'ID'
      FieldName = 'ProductID'
    end
    object StringField7: TStringField
      DisplayLabel = #20135#21697#32534#30721
      FieldName = 'ProductCode'
    end
    object StringField8: TStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'ProductName'
      Size = 50
    end
    object StringField9: TStringField
      DisplayLabel = #33394#21495
      FieldName = 'ColorCode'
    end
    object StringField10: TStringField
      DisplayLabel = #39068#33394
      FieldName = 'ColorName'
      Size = 30
    end
    object adsBrowseDetailPieceCount: TIntegerField
      DisplayLabel = #21457#36135#25968#37327'|'#20024#25968
      FieldName = 'PieceCount'
    end
    object adsBrowseDetailPieceNumber: TFloatField
      DisplayLabel = #21457#36135#25968#37327'|'#27599#20024#25968#37327
      FieldName = 'PieceNumber'
    end
    object BCDField1: TBCDField
      DisplayLabel = #21457#36135#25968#37327'|'#21512#35745#25968#37327
      FieldName = 'Number'
      Precision = 18
      Size = 2
    end
    object adsBrowseDetailUnitID: TWordField
      DisplayLabel = #21457#36135#25968#37327'|'#21333#20301'ID'
      FieldName = 'UnitID'
    end
    object adsBrowseDetailres_UnitName: TStringField
      DisplayLabel = #21457#36135#25968#37327'|'#21333#20301
      FieldKind = fkLookup
      FieldName = 'res_UnitName'
      LookupDataSet = res_Unit
      LookupKeyFields = 'UnitID'
      LookupResultField = 'UnitName'
      KeyFields = 'UnitID'
      Size = 10
      Lookup = True
    end
    object adsBrowseDetailPrice: TFloatField
      DisplayLabel = #21333#20215
      FieldName = 'Price'
    end
    object BCDField4: TBCDField
      DisplayLabel = #37329#39069
      FieldName = 'Money'
      Precision = 18
      Size = 2
    end
    object adsBrowseDetailSalePrice: TBCDField
      DisplayLabel = #38144#21806#21333#20215
      FieldName = 'SalePrice'
      Precision = 18
      Size = 3
    end
    object adsBrowseDetailSaleMoney: TBCDField
      DisplayLabel = #38144#21806#37329#39069
      FieldName = 'SaleMoney'
      Precision = 18
      Size = 2
    end
    object BCDField5: TBCDField
      DisplayLabel = #33457#39640
      FieldName = 'FlowerHeight'
      Precision = 18
      Size = 2
    end
    object BCDField6: TBCDField
      DisplayLabel = #33457#23485
      FieldName = 'FlowerWidth'
      Precision = 18
      Size = 2
    end
    object BCDField7: TBCDField
      DisplayLabel = #24133#23485
      FieldName = 'FlowerBreadth'
      Precision = 18
      Size = 2
    end
    object BCDField8: TBCDField
      DisplayLabel = #20811#37325
      FieldName = 'FlowerGram'
      Precision = 18
      Size = 2
    end
    object StringField11: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object DateTimeField1: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object StringField12: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object DateTimeField2: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object StringField13: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 500
    end
  end
  object frdsDetail: TfrDBDataSet
    DataSet = adsDetail
    Left = 56
    Top = 160
  end
  object res_Unit: TADODataSet
    Active = True
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select UnitID, UnitCode, UnitName from V_da_Unit'
    Parameters = <>
    Left = 472
    Top = 104
  end
  object adsBarCode_Scan: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select * from da_ProBarCode_Scan'#13#10'where DestBillType=:DestBillTy' +
      'pe and DestBillNo=:DestBillNo'#13#10'order by BarCode'
    EnableBCD = False
    Parameters = <
      item
        Name = 'DestBillType'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'DestBillNo'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 472
    Top = 200
    object adsBarCode_ScanBarCode: TStringField
      DisplayLabel = #26465#24418#30721
      FieldName = 'BarCode'
    end
    object adsBarCode_ScanSourceBillType: TIntegerField
      DisplayLabel = #28304#21333#31867#22411
      FieldName = 'SourceBillType'
    end
    object adsBarCode_ScanSourceBillDate: TDateTimeField
      DisplayLabel = #28304#21333#26085#26399
      FieldName = 'SourceBillDate'
    end
    object adsBarCode_ScanSourceBillNo: TStringField
      DisplayLabel = #28304#21333#21495
      FieldName = 'SourceBillNo'
    end
    object adsBarCode_ScanSourceBillID: TStringField
      DisplayLabel = #28304#21333'ID'
      FieldName = 'SourceBillID'
    end
    object adsBarCode_ScanSourceBillDetailID: TStringField
      DisplayLabel = #28304#21333#26126#32454'ID'
      FieldName = 'SourceBillDetailID'
    end
    object adsBarCode_ScanDestBillType: TIntegerField
      DisplayLabel = #20986#24211#21333#31867#22411
      FieldName = 'DestBillType'
    end
    object adsBarCode_ScanDestBillDate: TDateTimeField
      DisplayLabel = #20986#24211#21333#26085#26399
      FieldName = 'DestBillDate'
    end
    object adsBarCode_ScanDestBillNo: TStringField
      DisplayLabel = #20986#24211#21333#21495
      FieldName = 'DestBillNo'
    end
    object adsBarCode_ScanDestBillID: TStringField
      DisplayLabel = #20986#24211#21333'ID'
      FieldName = 'DestBillID'
    end
    object adsBarCode_ScanDestBillDetailID: TStringField
      DisplayLabel = #20986#24211#21333#26126#32454'ID'
      FieldName = 'DestBillDetailID'
    end
    object adsBarCode_ScanDeptID: TStringField
      DisplayLabel = #20998#24215'ID'
      FieldName = 'DeptID'
    end
    object adsBarCode_ScanStockID: TStringField
      DisplayLabel = #20179#24211'ID'
      FieldName = 'StockID'
    end
    object adsBarCode_ScanPosNo: TStringField
      DisplayLabel = #20179#20301
      FieldName = 'PosNo'
      Size = 5
    end
    object adsBarCode_ScanBoxNo: TStringField
      DisplayLabel = #31665#21495
      FieldName = 'BoxNo'
    end
    object adsBarCode_ScanProductID: TStringField
      DisplayLabel = #20135#21697'ID'
      FieldName = 'ProductID'
    end
    object adsBarCode_ScanProductCode: TStringField
      DisplayLabel = #20135#21697#32534#30721
      FieldName = 'ProductCode'
    end
    object adsBarCode_ScanProductName: TStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'ProductName'
      Size = 50
    end
    object adsBarCode_ScanColorCode: TStringField
      DisplayLabel = #33394#21495
      FieldName = 'ColorCode'
    end
    object adsBarCode_ScanColorName: TStringField
      DisplayLabel = #39068#33394
      FieldName = 'ColorName'
      Size = 30
    end
    object adsBarCode_ScanFlowerHeight: TBCDField
      DisplayLabel = #33457#39640
      FieldName = 'FlowerHeight'
      Precision = 18
      Size = 2
    end
    object adsBarCode_ScanFlowerWidth: TBCDField
      DisplayLabel = #33457#23485
      FieldName = 'FlowerWidth'
      Precision = 18
      Size = 2
    end
    object adsBarCode_ScanFlowerBreadth: TBCDField
      DisplayLabel = #24133#23485
      FieldName = 'FlowerBreadth'
      Precision = 18
      Size = 2
    end
    object adsBarCode_ScanFlowerGram: TBCDField
      DisplayLabel = #20811#37325
      FieldName = 'FlowerGram'
      Precision = 18
      Size = 2
    end
    object adsBarCode_ScanPieceCount: TIntegerField
      DisplayLabel = #25968#37327'|'#20024#25968
      FieldName = 'PieceCount'
    end
    object adsBarCode_ScanPieceNumber: TBCDField
      DisplayLabel = #25968#37327'|'#27599#20024#25968#37327
      FieldName = 'PieceNumber'
      Precision = 18
      Size = 2
    end
    object adsBarCode_ScanNumber: TBCDField
      DisplayLabel = #25968#37327'|'#21512#35745#25968#37327
      FieldName = 'Number'
      Precision = 18
      Size = 2
    end
    object adsBarCode_ScanUnitID: TWordField
      DisplayLabel = #21333#20301'ID'
      FieldName = 'UnitID'
    end
    object adsBarCode_Scanres_UnitName: TStringField
      DisplayLabel = #21333#20301
      FieldKind = fkLookup
      FieldName = 'res_UnitName'
      LookupDataSet = res_Unit
      LookupKeyFields = 'UnitID'
      LookupResultField = 'UnitName'
      KeyFields = 'UnitID'
      Size = 10
      Lookup = True
    end
    object adsBarCode_ScanPrice: TFloatField
      DisplayLabel = #21333#20215
      FieldName = 'Price'
    end
    object adsBarCode_ScanMoney: TBCDField
      DisplayLabel = #37329#39069
      FieldName = 'Money'
      Precision = 18
      Size = 2
    end
    object adsBarCode_ScanState: TWordField
      DisplayLabel = #29366#24577
      FieldName = 'State'
    end
    object adsBarCode_ScanHasSplit: TBooleanField
      DisplayLabel = #25286#20998#21542
      FieldName = 'HasSplit'
    end
    object adsBarCode_ScanSpliter: TStringField
      DisplayLabel = #25286#20998#20154
      FieldName = 'Spliter'
    end
    object adsBarCode_ScanSplitTime: TDateTimeField
      DisplayLabel = #25286#20998#26102#38388
      FieldName = 'SplitTime'
    end
    object adsBarCode_ScanSplitBarCode: TStringField
      DisplayLabel = #28304#26465#24418#30721
      FieldName = 'SplitBarCode'
    end
    object adsBarCode_ScanSourceOrderNo: TStringField
      FieldName = 'SourceOrderNo'
    end
    object adsBarCode_ScanSourceOrderDetailNo: TStringField
      FieldName = 'SourceOrderDetailNo'
    end
    object adsBarCode_ScanDestOrderNo: TStringField
      FieldName = 'DestOrderNo'
    end
    object adsBarCode_ScanDestOrderDetailNo: TStringField
      FieldName = 'DestOrderDetailNo'
    end
  end
  object frdsBarCode_Scan: TfrDBDataSet
    DataSet = adsBarCode_Scan
    Left = 472
    Top = 272
  end
  object adsBarcode: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select * from da_ProBarCode where Barcode=:Barcode'
    EnableBCD = False
    Parameters = <
      item
        Name = 'Barcode'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 328
    Top = 272
    object StringField14: TStringField
      DisplayLabel = #26465#24418#30721
      FieldName = 'BarCode'
    end
    object IntegerField1: TIntegerField
      DisplayLabel = #28304#21333#31867#22411
      FieldName = 'SourceBillType'
    end
    object DateTimeField3: TDateTimeField
      DisplayLabel = #28304#21333#26085#26399
      FieldName = 'SourceBillDate'
    end
    object StringField15: TStringField
      DisplayLabel = #28304#21333#21495
      FieldName = 'SourceBillNo'
    end
    object StringField16: TStringField
      DisplayLabel = #28304#21333'ID'
      FieldName = 'SourceBillID'
    end
    object StringField17: TStringField
      DisplayLabel = #28304#21333#26126#32454'ID'
      FieldName = 'SourceBillDetailID'
    end
    object IntegerField2: TIntegerField
      DisplayLabel = #20986#24211#21333#31867#22411
      FieldName = 'DestBillType'
    end
    object DateTimeField4: TDateTimeField
      DisplayLabel = #20986#24211#21333#26085#26399
      FieldName = 'DestBillDate'
    end
    object StringField18: TStringField
      DisplayLabel = #20986#24211#21333#21495
      FieldName = 'DestBillNo'
    end
    object StringField19: TStringField
      DisplayLabel = #20986#24211#21333'ID'
      FieldName = 'DestBillID'
    end
    object StringField20: TStringField
      DisplayLabel = #20986#24211#21333#26126#32454'ID'
      FieldName = 'DestBillDetailID'
    end
    object StringField21: TStringField
      DisplayLabel = #20998#24215'ID'
      FieldName = 'DeptID'
    end
    object StringField22: TStringField
      DisplayLabel = #20179#24211'ID'
      FieldName = 'StockID'
    end
    object StringField23: TStringField
      DisplayLabel = #20179#20301
      FieldName = 'PosNo'
      Size = 5
    end
    object StringField24: TStringField
      DisplayLabel = #31665#21495
      FieldName = 'BoxNo'
    end
    object StringField25: TStringField
      DisplayLabel = #20135#21697'ID'
      FieldName = 'ProductID'
    end
    object StringField26: TStringField
      DisplayLabel = #20135#21697#32534#30721
      FieldName = 'ProductCode'
    end
    object StringField27: TStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'ProductName'
      Size = 50
    end
    object StringField28: TStringField
      DisplayLabel = #33394#21495
      FieldName = 'ColorCode'
    end
    object StringField29: TStringField
      DisplayLabel = #39068#33394
      FieldName = 'ColorName'
      Size = 30
    end
    object BCDField2: TBCDField
      DisplayLabel = #33457#39640
      FieldName = 'FlowerHeight'
      Precision = 18
      Size = 2
    end
    object BCDField3: TBCDField
      DisplayLabel = #33457#23485
      FieldName = 'FlowerWidth'
      Precision = 18
      Size = 2
    end
    object BCDField9: TBCDField
      DisplayLabel = #24133#23485
      FieldName = 'FlowerBreadth'
      Precision = 18
      Size = 2
    end
    object BCDField10: TBCDField
      DisplayLabel = #20811#37325
      FieldName = 'FlowerGram'
      Precision = 18
      Size = 2
    end
    object IntegerField3: TIntegerField
      DisplayLabel = #25968#37327'|'#20024#25968
      FieldName = 'PieceCount'
    end
    object BCDField11: TBCDField
      DisplayLabel = #25968#37327'|'#27599#20024#25968#37327
      FieldName = 'PieceNumber'
      Precision = 18
      Size = 2
    end
    object BCDField12: TBCDField
      DisplayLabel = #25968#37327'|'#21512#35745#25968#37327
      FieldName = 'Number'
      Precision = 18
      Size = 2
    end
    object WordField1: TWordField
      DisplayLabel = #21333#20301'ID'
      FieldName = 'UnitID'
    end
    object StringField30: TStringField
      DisplayLabel = #21333#20301
      FieldKind = fkLookup
      FieldName = 'res_UnitName'
      LookupDataSet = res_Unit
      LookupKeyFields = 'UnitID'
      LookupResultField = 'UnitName'
      KeyFields = 'UnitID'
      Size = 10
      Lookup = True
    end
    object adsBarcodePrice: TFloatField
      DisplayLabel = #21333#20215
      FieldName = 'Price'
    end
    object adsBarcodeMoney: TFloatField
      DisplayLabel = #37329#39069
      FieldName = 'Money'
    end
    object WordField2: TWordField
      DisplayLabel = #29366#24577
      FieldName = 'State'
    end
    object BooleanField1: TBooleanField
      DisplayLabel = #25286#20998#21542
      FieldName = 'HasSplit'
    end
    object StringField31: TStringField
      DisplayLabel = #25286#20998#20154
      FieldName = 'Spliter'
    end
    object DateTimeField5: TDateTimeField
      DisplayLabel = #25286#20998#26102#38388
      FieldName = 'SplitTime'
    end
    object StringField32: TStringField
      DisplayLabel = #28304#26465#24418#30721
      FieldName = 'SplitBarCode'
    end
    object adsBarcodeSourceOrderNo: TStringField
      FieldName = 'SourceOrderNo'
    end
    object adsBarcodeSourceOrderDetailNo: TStringField
      FieldName = 'SourceOrderDetailNo'
    end
    object adsBarcodeDestOrderNo: TStringField
      FieldName = 'DestOrderNo'
    end
    object adsBarcodeDestOrderDetailNo: TStringField
      FieldName = 'DestOrderDetailNo'
    end
  end
end
